;;;moves the cursor to the start of the prompt.
;;;Subsequent PRINC will overwrite the prompt area but only
;;;to the character position it ends on.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;
(defun wipeprom ()
  (setq wipe_cnt 0)
  (while (< wipe_cnt 132)
    (princ (chr 008))
    (setq wipe_cnt (1+ wipe_cnt))
  )
  (princ)
)
(princ)
